home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
unity331.zip
/
FPL86.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-09-19
|
361b
|
22 lines
Program Plink86ErrorFilter;
Var
Source : Text;
Line : String;
Begin
Assign(Source,ParamStr(1));
{$I-}
Reset(Source);
{$I+}
If IOResult = 0 Then
Begin
While Not Eof(Source) Do
Begin
ReadLn(Source,Line);
If Pos('Symbol ',Line) = 1 Then WriteLn(', 0, 0, ',Line);
End;
Close(Source);
End;
End.